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ERRORS 
RAMDISC ISSUE 9 PAGE 9.5 


Faulty disk access can occur when this programme is installed 

sometimes resulting in files being erazed. The fault as caused 
because the routine corrupts Ri2 which cdos uses for something 
else. To correct the problem re-write the routine changing all 
referances to R12 to R2 instead. 


| 


SHORT TIP DMA MOD ISSUE 7 PAGE 7.12 ! 


Pin 4 of IC24 should be isolated and taken to +5V not pin 3 


NEWS 


Ameeting of Cortex and TI994A users will take place at Sneyd 
school Bloxwich on September the Sth. More details enclosed 
seperately. | 


Chris Young has sent in a disk full of Cdos utilities including 
the following: — 


PDIR Print directory utility programme ; | 
SORTDIR Sorts directory entries into alphabetical order 
DV Verifies disk sectors and flags any errors 


DISKNAME Puts a name on the disk for use by PDIR etc. 


These programmes will be printed in this and future issues but if 
users would prefer to obtain the programmes.on disk free of 
charge just send in a Formatted disk plus £2.@0@ to cover copying 
and postage. | | 


Chris has also written a small machine code routine called SMALL 
which allows printing of 64 columns to the screen in graph mode. 
Details in this issue. | “s 


Also from Chris Young is a CDOS compatible editor assembler 
package written in machine code. The full screen editor can 
handle very large source files and is simple to use. A help 
screen is provided in case you forget some of the commands. The 
very fast assembler supports all the 9995 opcodes and also the 
Cortex Mid opcodes MSG, WRIT etc. Two special opcodes have been 
added TEXT and GRAPH for changing the screen mode fromwithin§ a 
machine code programme. Routines for printing source and label 
listing are also included. 


The complete package is available from the group for £15.00 
Please specify exact disk format required. 
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PRINT DIRECTORY PROGRAMME BY C.J. YOUNG 


PQ REM HHH RHE HEHEHE 


5@ REM * PRINT DIR * 
BO REM HHHHHHKEHHHEEE 


11@ 
130 
140 
158 
168 
170 
18@ 
196 
200 
210 
220 
250 
2408 
2508 
2608 
2/78 
280 
298 
580 
5310 
328 
538 
546 


350 
360° 


370 
580 
39@ 
408 
410 
420 
430 


440 


45@ 
450 
47@ 
480 
490 
300 
910 
32Q 
130 
I4Q 


mete) 's) 


750 
37@ 
380 
390 
500 
410 
620 


REM *** Display title *** 


TEXT 

? “" CDOS Print directory 1.0 1987" 
? " Input Drive ? "5 

IK=KEYC(O] 


IF IK=@6: GOTO 160 
IF IkK<48: GOTO 160 
IF IK>Si: GOTO 160 


DRV=IK-48 

? DRV 

REM : | 

REM *** Set up Arrays *** 
REM , 


DIM BC10Q0] 'Buf fer 
DIM #NMC9] 'Name of disc 
DIM MCL 20] 'Machine code 
REM 
REM *** Set up variables *#** 
REM 
AMC=ADRIMCIOI I ‘Addr of MC 
AB=ADRCBIG]] ' Addr of buffer 
ERR=0 ‘Error 
D2=DRV*2 
USD=0 
AR=OASASH 
NA=@5AS5AH 
SD=QFFFFH 
NF=0 
REM 
REM * Machine code * 
REM | 
DATA 042@0H ,@618Q0H, OD@QGH ,214601H 
DATA @380H, 044@H , @4655@0H , O4F 2H 
DATA 04D2H, @CQOF1H,@704H, @A1 3H 
DATA @1701H,@592H, @924H ,@146F BH 
DATA @600H,@16F7H,0380H, OH 
FOR I=AMC TO AMC+38 STEP 2 
READ X 
MWDCIIJ=X 
NEXT I 
REM 
REM * Get disk name * 
REM 
StNMCQ@I="SYSTEM DISK" 


CALL AMC,@,DRV*256,90,AB,128 


IF MWDLABI: GOTO 6108 
FOR X=1 TO 20 

$NMCQ3 XI=ZMEMCAB+X+1 J 
NEXT X 
UNIT 2: UNIT —1 


? " <1B>-1CDOS Print directory Utility 1.0 or 


Loto 


630 
548 
650 
560 
5/72 
580 
596 
7QQ 
7106 
7208 
730 
74@G 
730 
7606 
7/70 
780 
796 
B00 
814 
826 
830 
840 
8356 
860 
87Q@ 
88a 
890 
9700 
910 
920 
938 
949 
936 
968 
978 
980 
9906 
1000 
1010 
1020 
1030 
1040 
1950 
1@60 
107@ 
1463 
1090 
1100 
111@ 
1120 


1130 


1140 
115@ 
11658 
1170 


? "Time: “3s: TIME 

? "<1B>-O" : 
? “ Disk Name: "tNMCOI 

UNIT -2: UNIT 1 

REM 

REM * Get disk parameters * 

REM “e | 
DP=MWDL@6382H+D2 J 

 SPT=MWDCDP J ' Sectors/track 


NS=MWDEDP+2 ] 'no of sectors 
DS=MWDCE DP +4 J ‘Directory start 
MF=MWDCDP+6] 'Max Files 
BPS=MWDCL@6362H+D2 J 'Bytes/sector 
BMA=SPT*BPS § Bit map Addr 
DDA=DS*BPS ! Disk Dir Addr 
BML=DDA-BMA ‘! Bit Map Length 
REM | 
REM * Calc used * 

REM 

CALL AMC ,@,DRV*#254,BMA,AB, BML 
CALL AMC+14,BML,AB,ADRECUSD]I 
UNIT 2: UNIT -1 


Leng 


th 


>? " Total number of sectors = "£°9999°NS 

> " Number of Used Sectors = "£‘9999°USD 

> " Number of Free Sectors = "£'9999'°NS—-USD | 

? " Number of Bytes per Sector = "BPS 

>? " Maximum number of files ="MF 

iP i — a ee eS SS SS SS SS SS SSS SS SS SS TS SS SF SS SS SS SS 
? " Name Type Length Load Sector 

? nn nn a a a a ws we es ee me ee ee ee ee a eer eww OO 

FOR I=0@ TO MF-1 


CALL AMC ,@,DRV#*254,DDA+1*64,AB,564 
IF MWDCABI=0: GOTO 1420 
REM 
REM * Print name * 
REM 
FOR X=1 TO 8 
Q=MEMCAB+X+1 4 
IF Q=@: Q=32 
SNMCOs X1=Z0728 
NEXT X 
? " “s ¢NMCOI;5 
REM 
REM * Check type * 
REM 
IF MWDCABI=AR: 
IF MWDCABIJ=NA: 
IF MWDCABIJ=SD: 
? " Random Data 
? £°999 'MWDCABIS 
DL=MWDCABI 
GOTO 1179 
? “ Sequential data"; 
DL=6& 
X=MWDCAB+18) © 


GOTO 1216 
GOTO 1250 
GOTO 1150 


th 
9 


| 2- 


$6 


1180 ? " R=": 

1190 ? £°9999°X/DL;3 

1200 GOTO 134@ 

1210 ? " Auto-Run"; 

1220 IF MWDCAB+101: ? " Basic "$5 

1230 ELSE ? " Code "$s 

1240 GOTO 1298 

1250 IF MWDCAB+1@]: GOTO 1320 

1240 ? " Code "; 

1276 IF MWDCABt+14]: 7? "program ie 

1280 ELSE 7? " ee 

1290 IF MWDCABt+1@I]: GOTO 1330 | 
1300 2?" "sF MWDCAB+161;"H "sS£,MWDCABtI2I;"H "; 
1316 GOTO 1350 i 3 . 
1320 7? " Basic program "; a 

1330 2?" "s£°99999 'MWDCAB+1613" "5 

1348 a ae 

1350 FOR ZZ=32 TO 6@ STEP 4 

1360 2?" "ef MWDCABt+Z2Z15 "H ns 

(1370 ? £,MWDCAB+ZZ+215 "H" | | 
1380 IF MWDCAB+Z2Z+41=0: ZZ=464: GOTO 1400 
1390 en | ie 
1400 NEXT ZZ 

1410 NF=NF +1 

1420 NEXT I 

1430 °? 

LLG Pm : 
1456 UNIT 1 

1460 7 " End Of Directory" 

1470 7 " Number of files Used ="NF 
1480 jUNIT -1 

1496 7? "<C>"; 

1500 UNIT 1: UNIT -2 

151@ END Oo 


EXAMPLE RUN 
CDOS Print directory i.@ 1987 
Input Drive ? 1 


—1CDOS Print directory Utility 1.0 Time: 0@:12:55-0 

Disk Name: SYSTEM DISK 

Total number of sectors = 64@ 

Number of Used Sectors = 285 

Number of Free Sectors = 355 

Number of Bytes per Sector = 128 

Maximum number of files = 3@ 

Name Type Length Load Sector Length 

SWING Basic program 4036 @O20H OO2GH 

LETTER Auto-Run Basic 37358 @@40H @018H 
@17FH @@Q@1H 
O226H @@@5H 

SCROL Code | @400H ES0QH @184H @008H 

BASIC Basic program 1160 @1ECH Q@Q@Q9H 
@18@GH @0G1H 
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lo .0. E AVES C AITHRESS 


Ther are two unused pins on the Centronics socket that can be used to test 
whether a printer is connected to the interface and if it is on line. Most 
printers do provide the necessary signals and users will have to refer to 
their printer manual, I use a Centronics 737 which provides a +5V printer on 
signal and a Select signal set by the On Line/Local switch, 


On the undeyside of the centronics board connect wires from SK1i pins 13812 
to IC4 pins 1&2, Connect a resistor of about 3.3k between pin Z of IC4 and 
ground, This is to ensure a zero volt siganl when no printer is connected, 


Rewire the printer lead so that the On signal goes to pin 13 on the 
connecting plug and the select (if available) goes to pin iz, 


In a program checks can be made by setting BASE 800H and interrogating 
CRBLi0] to check the printer is available and switched on. CRBC11] if 
applicaable can check the state of the on line switch. 
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STROBE 
Rosy 


Some users may have noticed that when using my KEYS program in 
Newsletter 7 that the cassette command CLOAD will nat work(or LOAD if 
not using a disk based system). One of the characters is used in the header 
checksum and if the key routine is enabled then a TAPE READ ERROR will 
occur as soon as the program is found. This problem can be avoided by 
disabling the KEYS routine, | 


To disable the routine, memory locations 4SEH and 490H need to be set to | 
4DDH and 0D778H respectively. To re-enable set the locations to 0460H and 
AO (the start address of the keys code). I have added a section to the 
program to create two new cammands KON (Keys ON) and KOF (Keys OFf) to 
do these operations simply. | | 


The listing is the same as that in Newsletter 9 with the following lines. 
Line 51 and lines 140-260, Lines 200-230 with the data at 140-150 set up a 
small m/c routine to set/unset the keys routine, Line 240 with the data at 
140 to 170 put the command names into the lookup table to run the new 
coding. The code can be relocated by altering the variable SA which holds the 
start address of the added code, | ; | 


One point omitted from the previous writeup for KEYS is that ‘a’ and ‘b’ 


(shown in the new listing) are dummy characters to allow quotes and carriage 
returns to be included in the labels, | 


LG 


Lv 0, EAVES 


REM KKKKKKKK KEYS WITH ENABLE/DISABLE COMMANDS KKK KK KK 


DIM $C21 
TEXT ? COLOUR 1,131 ? @™CL4R"S°KEY LABELS"? 2 @™13 RM) [OROOKKIOEK 
go eo Key Label"? ? : | 
AQ=O5FBOQH! KD=05F00H? RESTOR 105 7 | 
FOR F=0 TO 47% READ At MWDCAQ+FXKZ1=At NEXT F | 
ee MWDCO490HI=AO 7 | 
FOR N=176 TO 185% X=N-176! GOSUE 65: NEXT N | 
N=173% X=N-1633 COS SUE 65 — : | 
FOR N=?19 TO 223 STEP 21 X=(N-197)/2: GOSUE 63: NEXT N, 
GOSUB 200 | | 
? ¢ ?°? "To disable CALL"; £SA+018H;"% or type “KOF?* : 
? "Re-anable ‘CALL"S£SA41+Bi"% or type “KON’'"? 2? ¢ WATT 100 
? 'Yoadine CAT Command"! LOAD 0,"CAT" 
2 "Loading FIND Command’? LOAD 0,"FIND" 
F=KD+12*(X)?t MEMCFIJ=N? FREAD $CC0]: GOSUE 90 
FOR G=1 TO 103 MEMCF+GI]=ASCCS$ClO,GI])¢ NEXT Gt MEMCF+4+G1=0 
$A=%i3t F=FOSCéA,$¢CCOJ]: ITF F THEN $CCOSFI="CReturnd" 
$A=ZCN-128)3 3 “CGRAPHI-" 3 $A3" | "S#ClOd 
RETURN 
F=FPOSC'a',$ClOI17: TF FP THEN $#€CCO3;FI=41320 
—_ POSED") SCC 022: Le ae THEN $ClO;FI=434 
RETURN 
DATA 0420H, AQ+0CH, 0O4DDH, 0D778H,0460H,0492H, AQ+O10H, AQ+030H 
DATA KD,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0. 
DATA OC22DH, O10H, OCO40H, OZ0Z7H,11, 09631H, 01304H, OA042H 
DATA OD451H,0146FEH,0360H, ODESLH, OD451H, 01601H, O380H, ODESIH 
DATA O5A0H, ODEDABH, OL0F9H, ODEO 3H, OSA0DH, OEDABH, 0380H, 0 
DATA “RUNA", "LIST", "LOAD 0,b","LDIRba","DATA ","GOSUE", "RETURN" 
DATA "SAVE O,b","b,REP,EXa", "CONTa", "COLOUR", "GOTO", "GRAFH", "TEXT" 
DATA 04460H,A0,04DDH, 0D778H — : | 
DATA MOV,SA,A1,MOV,SA+2,A14+2,0460H,021CH 
DATA MOV,SA4+4,A1,M0V,5A4+6,814+2,0460H,02Z1CH 
DATA O3A9AH,073D6H,04038H,SA+8 
DATA 03A9CH, 033D6H, 0403AH,5A+018H 
REM XKXX*KX CODE TO ENABLE/DISABLE KEYS KxKxxKxXXK 
MOV=0CS820H!? SA=06FD0H? AL=046EH - 
FOR T=SA TO SA+38 STEF 2 
READ At MWDLLI=A 
NEXT I 
REM KX*X** CODE TO FUT AS COMMANDS KON & KOF XXX 
FOR IL=1 TO 4! READ A,E! MWDCAI=E% NEXT T 
RETURN | 


He 
(| 
tm 


lad 


MDEX UTILITIES DISK FROM ANTHONY, ROWELL 
Anthony has put together a few MDEX utilities for user group 
members The disc is in 4@ track single sided double density MDEX 
format and contains the following 3 


1. MOD2S56K. TXT A description of haw to upgrade the CORTEX 
memory to 256K Bytes onboard. 


Ze WPRINT A utility to print out a file with multiple 
| columns per page (like a newspaper) on an MDEX 
system. Very useful for disassembly etc. 


Js SWAP A utility to exchange drives 1/ and 2/ under 
MDEX (and back again if called again). Useful 
for systems having mixed drive types. NB. 
the FORMAT program access the disc controller 
dirctly and so bypasses any SWAP. 


4. DISASM A utility to disassemble either program files 
or relocatable files (better). Various 
options including initial. symbol table input 
from a file for iterative disassembly. Still 
under development so a few bugs | 
but still quite useable (feedback welcome'). 


a7 MENU. OBJ A library routine for menu input, used by 
WPRINT etc. for linking to user programs. 


&. README This document. 


7. SYMBOLS An example symbol table input file for 
the disassembler. 
g. MENU. DOC Brief documentation for using MENU. OBJ 
a. ADVENTURE This is a copy of Colin Hinsons version of 


Colosol Cave. 
These items are free to CORTEX users for non-comercialuse only. 


Anthony is currently writing new device drivers etc. for MDEX as 
a result he now has a MDEX system that allows upto 4 disc drives 
and a RAMDISK. These are currently working but need some final 
tidying up. To use them you need the MDEX system generation kit 
but the result is worth it (eg. using S" drives the assembly of 
the 12@@0@ lines of floppy driver source takes 2min. 13sec. but in 
ramdisk takes 15sec.) and the programable function keys make life 
easier too. | 


If anyone wants a copy of the disk please send a formatted = and 
prepped disk in plus £2 to cover copying and postage. 


We hope Anthony will send in more details of his new device 
drivers when they are finished. 


\-% 


256K Memory upgrade for the Cortex. | Anthony Rowel 1 


The onboard memory of the cortex can increased’ to 255K bytes at 
low cost and with minimal hardware modification. I operate a 
cortex modified in this way and have no resulting problems. 


The sequence of events is as follows :_ 


1. Link pin 1 of all the 4164 Ram‘s together (IC86 to IC93). 
2. Isolate pin 13 of ICS2 (74LS02). | | 
3. Link Pins 1 and 2 of ICSS (74L9520) together. 
*4. Remove links LK1 to LK4 located next to I1C4&6 (74L5612). 
*5. Cut the four "dots" alongside IC8@ (74LS244).. - 
*6&. Install IC4&& (74LS612). | 
7. Mount a 74LS1i57 on the PCB by a suitable means and wire it 
as follows: - | , ane | 


Link Pin 1 to Pin 4 of any DRAM (RAS-) 

Link Pins 2,3,5,6,8,15,14,13 to GND 

Link Pin 16 to +5v 

Link Pin 9 to Pin 1 of any DRAM 

Link Pin 10 to Pin 23 of IC&& (74LS612 MO7 XA3) 
Link Pin 11 to Pin 22 of IC46& (74LS612 MO& XA2) 


8. Connect a 1K Ohm resistor between pins 9 and 16 of the new 
74LS157 | p | 
9. Replace all eight 4144 DRAMS with 256K x 1 DRAMS (I used NEC 
412546-15) 


The IC numbers given are as marked on the PCB and not as given 
in the original ETI articles. The upgrade works by using the 
existing 45808 DRAM controller to control larger DRAMS than it is 
intended for and the extra DRAM address line (AQ) being provided 
via a multiplexor from XA3 & XA2. The onboard memory decode is 
modified such that it extends from Q@0000 to 3FFFF. 


When using the memory mapper the 4K of ram at OFxxx can be 
used by loading any mapping register (oher than 15) with the 
value @F. 


The cost of the upgrade is 25..3@ Pounds and the resulting 
memory operates faster than an E-BUS based memory expansion. 


For anyone who would like to increase this to Si2k bytes I 
suggest that the use XAl to feed RENI, isolate XAlL from the 
decode logic and use a second bank of DRAMS in parallel with the 
main set but with a seperate RAS- line driven frim RASI-. 

As a result the select line of the 74LS157 should be driven 
by (RAS@-— anded with RASI-). I have not tried the S12K version 
but it should be ok. 


* — Steps not required if memory mapper already fitted. 
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SMALL CHARACTERS IN GRAPH MODE 


_, O1 
Q2 


OS 


a4 
a5 
Q6 
Q7 
as 
ag 
1 
Al 
12 
13 
14 
15 
14 
17 
18 
19 
20 
21 
22 
23 
24 
25 


28 
29 
30 
31 
32 
33 
34 
35 
34 
37 
38 
39 
42 
41 
42? 
43 

44 
45 
4&4 
47 
48 
49 
5a 


“SMALL.S" 


C.J. YOUNG 


Listing Of Assembler Source File "SMALL.S" 


26 saa 6 6«“@e 6we 


TO USE CALL ORG,Y,X,CHAR 


SMALL CHARACTERS IN GRAPH MODE 


Y= ROW @ TO 24 X=COLUMN! @ TQ &3 


CHAR 


ODD: 


26 


MORE: 


CHARI: 


EVEN: 


NOLOAD: 


NOBIT: 


12 - 


CHAR CODE 
ORG >F200 
EQU >@SF2 
EQU >F120 
SLA RQ,8 
SLA R1,2 
A R@,R1 
MOV R1,R9 
ANDI R9,>FFFa 
CLR R12 
LI R10, >OF QF 
ANDI R1,4 
JNE ODD 
SETO R12 
SRC R1@,4 
MPY @>1C88,R2 
LI R1,>SAEE 
A R3,R1 
SETO R2 
LI R7>>@1@1 ~~ 
SETO R& 

CLR RS 

CLR RQ 

LI R4,>01@1 
LI R3,& 

INV RO 
JEQ@ EVEN 
SRC R4,1 
SRC R71 
JNC NOLOAD 
MOVB *R1+,R6G 
COC R7,R6 
JNE NOBIT 
SOCB R4,R5 

DEC RS 

JGT CHAR1 
MOV R9,RB 

BL  @XSVDC 
MOVB @XVDC,R8 
SZCB R1@,R8 
MOV R12,R12 
JNE NOSHT 
SRL R5S,4 


1O 


Listing Of Assembler Source File “SMALL.S" Page 2 


@1 NOSHT: SOCB R8,RS5 


@2 LI R8, >4000 
OS A R9,RB 

a4 BL @XSVDC 
as INC R9 

4 MOVB R5S,@XVDC 
a7 | SRL R2,2 

ats) -JNE MORE 

a9 RTWP 

146 =; 

11 3END OF FILE 

lz 3 


Labels From Assembler File "SMALL.Z" 


Date/Time = 01:04:32 — 
XSVDC Q@SF2 XVDC F120 START F200 ODD FIC 
MORE F27E CHAR1 F23A EVEN F240 NOLOAD F24& 
NOBIT F24C NOSHT F262 


Basic programme to demonstrate the use of SMALL 


1Q@ GRAPH : ’B=2 
20 FOR A=32 TO 54 

3@ CALL @F20@H,B,A-30,A+32 
40 NEXT A 


20 B=Bt2 
6Q@ IF B<24 THEN GOTO 20 
7@ END 
SMALL uses the existing character set to form the small 


characters and uses no memory other than the space taken by the 
code itself. 


The programme offers a very low cost method of obtaining a 64 
column screen for text layout work etc. 


aa 8 


This circuit for a combined paralell / serial I/O card has been 
sent in by Alen Badcock. He says he will develope a P.C.B. for it 
soon. 


The inputs to the 74LS266 can be shuffled for other base 
addresses ie, @2Q0QH. 
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KEYBOARD MODIFICATIONS 
by John Mackenzie 


AUTO REPEAT 


Have you ever wanted your keys to repeat with out reaching 
for that key on the far right. Well here is a simple Cct that will 
do just that. 7 ¢ 


On switch on the auto repeat is selected. Press a key and 
hold it down then after a short delay it will automatically 
repeat. The delay is to allow you to input just one character and 
release the key, with out multiple characters being input. If you 
press repeat then Auto repeat is switched off. Press repeat again 
and it is reselected. . | 


HOW IT WORKS 


The second monostable of IC5 removes any repeat key switch 
bounce. The repeat key then toggles the first J K flip flop of 
Ic6. Thus selecting “repeat on’* repeat off’. 


Repeat off inhibits the oscilator ICl via 1CLR & 2CLR. 


Repeat on allows ICl via 1CLR & 2CLR, But the oscilator is 
inhibited for a short time after the key is pressed by the first 
monostable of IC5 which has been triggered by the keydown signal 
from IC4. The delay time can be adjusted by the 500k pot. 


The repeat state is indicated by the LED. 


FUNCTION KEYS 


I have created a set of single pole single through Function 
Keys on my Cortex above the top row of keys using this simple Cct. 


F5 F8 IC4 


| Fl F4 | 
XC )eeepe - - — 5 ge ae ee E X() & YC ) 
| | | : . ? | depend on which 
| | | - - | | key you wish to 
mimic with the 


———- | ? << function key. 


enna ee trend ann ffm COntrol 
| pin 5 Ic4 
The Cortex basic is very good for this. 


10 INPUT ?100,SA 
20 GOTO 10 

100 POP 

110 A=SYS(0] 

120 PRINT A 

130 GOTO 10 


Will print out the system number for the CTRL + key you 
Operate or in the case of the above Cct the function key you 
press. 
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PROJECT: Cortex 
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List ‘11408 TO. 41510 3 


' 
| 


11832 
11984@ 
1185 

11920 
11912 
11920 
11942 
11972 
11999 


18508 
—6-10518 


143530 


TD=@QH: 


10540 
10545 
18544 
103547 


RS ite 
— cpa a cc ale Mons TO ;@ Pass. 
11420 GOSUB 11820 © | | ASSEMBLER’ 
11460 FOR XX=0 TO Li-1 , _ | To tonrecy 
11470 IF #LABL@]= $LELEXX, @1: GOTO 11500 ae mone 
11480 NEXT Xx eee. Gane | Be 
11485 IF FAS=1: CRINT "NO LABEL FOUND tN LINE _ AE=AE+1 © LAGE Raunne 
11490 GOSUB 19700: GOTO 1151@ [NO LABEL ON FASS 1 - 
11500 NUM=LBLOXX,13 : z a 
11505 GOSUER 10050 2 . | 
1151@ RETURN 

LIST 118@@ TO 11999 | 

118@@ REM FULL LABEL OUT OF LINE 
11810 REM DEPENDENT ON ‘2° 
11815 IF Z?@: GOTO 1190@ : Pa 
11820 FOR O=1 TO LENC#LINCZ,@]1: IF ASCL¥LINEZ,@: eli @30H: GOTO 11842 


NEXT @ 


#LGRLQ@I=£LINC2,@;21,0-2 
RETURN 
LL=FOSE",",#LINC2,@11+2 a | 
FOR G=LL TO LENCSLINC2,Q]]: IF ASCLSLIMC2,@;G31¢@30H: GOTO 11940 
NEXT GQ. | | 
+LABRC@I= =#LINC 2; Os Lt, GLb 
RETURN 
STOF 
LIST 18@5@@ TO 104670 | - | | 

REM FIND TD | = . 
Z=FOSC",",#LIN€2,@11+1 Pee | “# a 
IF aaa tare Z]1=Q52H: REG=$LINC2,0;Z+11,D: REG=REG*64: GOSUE 10230: 

RETURN | : : 
$CCOI=#LINC2Z,Q3Z1,2: IF #ClOl<2"*R": GOTO 10570 
REG=#LINC(2,@3Z+21,D | 
REG=REG*64 = 

“gosue 1@230 ° 
TD=@4@@H ' REG INDIRECT 


Puta ig awit Sill OORT heat Sco Ae a 
ae 


10550 


1GS355 
10560 
1035708 
10530 
10570 


OOSa 


10595 
14400 
19618 
10462 
18625 
12430 
10635 
14640 
184508 
1844 
1@47@ 


IF #D="+"s 


IF ASCC#LINE2, @; Z+1II< 


TD=@C@@H '!'REG INDIRECT AUTO. INCREMENT 
RETURN | | 
IF ASCCELING2,@;3 Z1I< IN LINE "sR: AE=AE+) 
GOTO 143595 


$CLQI=/"Q"s . 


>@4QH: FRINT "NO ’@’ 
>@3EH: GOSUR 11400: 
Z+21,4: #CCQI=$ClOI+"H": 


NUM= -$CL QI, D: GOSUE 1 


ECCOI=FLINCS, Qs; 
$C C@I=#HEX | 
TD=@80GH 'SYMBOLIC 
FLi=POSC" (R",#LIN02,@; 213 
IF Fi=@: RETURN 

Pi=Pi+Z . 
REG=$LINtC2,@;Fi+11,D 
REG=REG*54 : 

IF #042") ": PRINT 
OF =F LOR REG 
TD=@8@@H  ! INDEXED 
RETURN 


"NO °)° IN LINE "sR: 


AE=AE +4 


2 : : 7 oe 2 
3 oe SR . 
; ; one . ke ee 
i ibe 5 eae be ’ OE. 
4 | ~ =gi oe 
. oe -. . _ es eg 7 ; ee. tree 
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CORTEX USERS GROUP 


a eee comes eee comm corey eee eee ame aoem aume apace eset genes avese epee ease aenee 


WELCOME TO THE NEW CORTEX USERS GROUF . THE FOLLOWING 


ARE DIRECTIONS FOR SNEYD SCHodL 
EXIT JUNCTION 11 OF MOTORWAY AND FOLLOW SIGN FOR A442 


TARE THE FIRST TURNING TO THE LEFT AFTER THE ROAR HAS 
PASSED OVER THE MOTORWAY 


YOU SHOULD NOW BE IN SNEYO LANE 


THIS ROAD IS STRAIT WITH A TIGHT BEND AT THE END » THE 
TURNING FOR THE SCHOOL IS JUST BEFORE THE BEND ON 
THE LEFT HAND SIDE : 


TF YOU ARE TRAVELLING ALONG THE AS TAKE THE A440 
TURNING CCANNOCE TO WOLVERHAMPTON ROAD) THIS WILL 
BRING YOU ONTO JUNCTION 11 


ojiy 
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CORTEX USERS CLUB SALE | 
RPGR INTERFACE RARE BOARD +2, 00 KIT 
CENTRONICS IMTERFACE BARE BOARD A 7.00 KIT £15.00 
F BUS -ALL IC°S EIT 
E BUS BACK FLANE | £15.00 
SEMICONDUCTORS 


TH? vot , ee 8 

TMS? 902 | 23,00 

Y4Lseo12 (3 AVALABLE) 4 25,00 

74LiaLi/74Lieii (NEED FUL UF RESISTORS) £145.00 
E BUS EPANSIUON 

E BUS (4K RAM, SE EPROM SCET,14 IN/OUT LINES) $15.00 


NOTE-THESE CARDS ARE EX EQUIPMENT TESTED AND WORKING 
E BUS (S#2k EPROM SCET CARD BUILT NO EPROMS FITTED) £28.00 
NEW EF RUS Si2k DRAM BARE BOARD £ 40,00 
| CORTEX EXPANSION 
EXTERNAL VIDICG INTERFACE BARE BOARD £15.00 EIT £20.00 
DISk CONTROLER (WO 2797+BCOARD) $40.00 
CORTEX SOFTWARE . | 
DISkK OPERATING SYSTEM Coos 1.20 AND 2.006 $45.00 
Coos 1.20 FOR 2vov SYSTEM 
COIS 2.00 FOR 2797 SYSTEM | 
(FORMAT AVAILABLE SOT. SD.05,S07T. SS. 00,807.35. 50,407.35. 50) 
(2"40T. SD) 
2" HITACHI BOSS/5X DISC DRIVES AVAILABLE FROM 
MATMOS LTD 
1 CHURCH STREET 
CUCKFIELD 
W SUSSEX RBHIZ7 SUZ 
PRICE £24.95 + 22.60 (CARRIAGE) +VAT 
MEMBERS SOFTWARE ~ , 
WORTEX-WORD PROCESSING $15.00 
INCLUDES SPELLING CHECKER 
SEND TO J S MACKENZIE 
4 WERSTAN CLOSE 
| HALYERN WR14 SNH 
| (INCLUDE TW S"" DD DISKS) 
: DRAWUTECH-GRAPHICS DRAWING PACKAGE £20.00 
SEND To T GRAY | 
1 LARKSPUR DRIVE 
FEATHERSTONE 
WOLVERHAMPTON 
WEST MIQLAND WV10 7TN 
TWO PASS ASSEMBLER | | $ 10,00 
SEMC To RM LEE | 
2 CHURCH AVENUE 
WES THAM 
PEVENBEY 
FAST SUSSEX 
BN24 SiLN 
CORTEX USERS GROUP SOFTWARE 
ALL GAMES £2.50 EACH 
BURGLAR MUNCHER 
FROGGER G& DESIGN 
[NVADERS&ASTERGIDG WALL 
| HUNCHBACE ARCHIE 
: - MAZE NIGHT ATTACK 
OLIMPICS NEW CORTELLO 
FIRE BIRE RESCUE 
| FENGQO MOONBASE II 
| _ LABYRINTH OF TAG CENTIFEDE 
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